home *** CD-ROM | disk | FTP | other *** search
/ Star Trek Starfleet Academy Mini Omnipedia / MINI_OMNI.ISO / pc / omni_v2.dxr / 00047_text scroll bg.ls < prev    next >
Encoding:
Text File  |  1996-04-15  |  369 b   |  16 lines
  1. on mouseDown
  2.   global oTextScroller, gModeState, gScrollIncrK
  3.   set vloc to the mouseV
  4.   set vloc to the mouseH
  5.   if gModeState = #CHRO then
  6.     if the mouseV > the locV of sprite 34 then
  7.       set vDirection to 1
  8.     else
  9.       set vDirection to -1
  10.     end if
  11.     mScrollMe(oTextScroller, 13 * vDirection)
  12.   else
  13.     mTextSliderPage(oTextScroller, #page)
  14.   end if
  15. end
  16.